home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / DBANKWIN.ZIP / DBANKX.BAT < prev    next >
DOS Batch File  |  1993-09-20  |  3KB  |  86 lines
  1. @echo off
  2. @sendlog DBANK
  3. i:\bin\send Looking for Microsoft Windows program file ...^M^J
  4. i:\bin\send ^M^J
  5. C:
  6. if exist H:\%username%\foundwin.!@# del H:\%username%\foundwin.!@#
  7. if exist win.com goto SetEnDB
  8. for %%i in (%path%) do call i:\dbank\look4win %%i
  9. if exist H:\%username%\foundwin.!@# goto found
  10. if not exist c:\windows\win.com goto tryD
  11. cd\windows
  12. goto SetEnDB
  13. :tryD
  14. if not exist d:\windows\win.com goto tryWinC
  15. D:
  16. cd\windows
  17. goto SetEnDB
  18. :tryWinC
  19. if not exist c:\win\win.com goto tryWinD
  20. cd\win
  21. goto SetEnDB
  22. :tryWinD
  23. if not exist d:\win\win.com goto notfound
  24. D:
  25. cd\win
  26. goto SetEnDB
  27. :notfound
  28. i:\bin\send Dbank can only run under Microsoft Windows which is not found.^M^J
  29. i:\bin\send If you did install Windows, please include its directory name in the^M^J
  30. i:\bin\send `SET mypath=' statement of your \AUTOUSER.BAT.^M^J
  31. i:\bin\send ^M^J
  32. i:\bin\send If you wish to install Windows for use with NUSNET, please access^M^J
  33. i:\bin\send `Applications', `Others ...', then `Information' from the NUSNET Main Menu^M^J
  34. i:\bin\send for help.^M^J
  35. i:\bin\send ^M^J
  36. pause
  37. goto Return
  38. :found
  39. del H:\%username%\foundwin.!@#
  40. :
  41. :SetEnDB
  42. :
  43. i:\bin\send Setting Environment for Dbank...^M^J
  44. addpath i:\dbank > NUL
  45. ECHO @I:\dbank\dbankq.bat >H:\%username%\$NNRESET.BAT
  46. @share /L:500 >NUL
  47. if not /%temp%==/ goto Gottemp
  48. set temp=C:\
  49. :
  50. :Gottemp
  51. :
  52. rem See if Windows already loaded:
  53. if exist H:\%username%\~loaded~.!@# del H:\%username%\~loaded~.!@#
  54. set|find "windir=">H:\%username%\~inwin!~.bat
  55. call H:\%username%\~inwin!~
  56. del H:\%username%\~inwin!~.bat
  57. if exist H:\%username%\~loaded~.!@# goto WinExist
  58. goto LoadWin
  59. :
  60. :WinExist
  61. :
  62. del H:\%username%\~loaded~.!@#
  63. I:\BIN\SEND ^M^J
  64. I:\BIN\SEND Windows was already running before you invoked Dbank.^M^J
  65. I:\BIN\SEND ^M^J
  66. I:\BIN\SEND If the message `SHARE already installed' appears above,^M^J
  67. I:\BIN\SEND please use Alt+Tab to get back to Microsoft Windows,^M^J
  68. I:\BIN\SEND then `Run...' I:\DBANK\DBANK from the `File' menu of Program Manager.^M^J
  69. I:\BIN\SEND ^M^J
  70. I:\BIN\SEND If that fails, or if the message above was merely `SHARE installed',^M^J
  71. I:\BIN\SEND please use Alt+Tab to get back to Microsoft Windows,^M^J
  72. I:\BIN\SEND then end your Windows session, and then `Dbank Access' from NUSNET again.^M^J
  73. I:\BIN\SEND ^M^J
  74. I:\BIN\SEND First press any key to return to NUSNET menu, then use Alt+Tab:^M^J
  75. pause>nul
  76. rem pause
  77. goto Return
  78. :
  79. :LoadWin
  80. :
  81. win i:\dbank\dbank.exe DBANK.NET
  82. :
  83. :Return
  84. H:
  85. menu
  86.